Исходный код

Option Explicit
Call ShowDesktopObjList()

'=====================================================================
'Открыть диалог выбора объектов, задав ему в качестве источника данных
'объекты, лежащие на рабочем столе пользователя
'=====================================================================

Sub ShowDesktopObjList()
        Dim SelObjDlg, selObj, RetVal, strInfo 
        
        If ThisApplication.Desktop.Objects.Count = 0 Then
                Msgbox "На Рабочем толе пользователя " & _
                        ThisApplication.CurrentUser.Description & " нет объектов.", _
                        vbInformation, "Информация"
                Exit Sub
        End If
        
        'Открыть диалог выбора объекта
        Set SelObjDlg = ThisApplication.Dialogs.SelectObjectDlg
        SelObjDlg.Caption = "Объекты на Рабочем столе пользователя " & _
                ThisApplication.CurrentUser.Description
        SelObjDlg.Prompt =     "Выберите один или несколько объектов:"
        SelObjDlg.SelectFromObjects = ThisApplication.Desktop.Objects
        SelObjDlg.ParentWindow = ThisApplication.hWnd
        RetVal = SelObjDlg.Show
        
        'Вывести описание выбранных объектов
        If RetVal And SelObjDlg.Objects.Count > 0 Then
                For Each selObj In SelObjDlg.Objects
                        strInfo = strInfo & Chr(13) & selObj.Description
                Next
                Msgbox "Были выбраны следующие объекты:" & Chr(13) & strInfo, _
                            vbInformation, "Информация"
        End If
End Sub 
'=====================================================================